home *** CD-ROM | disk | FTP | other *** search
/ Gekkan Dennou Club 145 / Gekkan Dennou Club - 2000.6 Vol. 145 (Japan).7z / Gekkan Dennou Club - 2000.6 Vol. 145 (Japan) (Track 1).bin / tools / sharp / sxwork1i.lzh / SXWORK1.XDF / INST.BAT
DOS Batch File  |  1994-02-20  |  30KB  |  841 lines
  1. echo off||cls
  2. rem Ｗorkroom SX-68K ver1.0 インストーラ　Copyright 1993 SHARP
  3. if not exist B:\ETC\TOOL.X goto NTC
  4. tool 5 0||break on
  5. B:\ETC\tool 1 A:||if not exitcode 254 goto NTC
  6. B:\ETC\tool 12 A: XCｼｽﾃﾑ#1||if exitcode 1 goto NTC
  7. B:\ETC\tool 12 B: Workroom_Applicati.on||if exitcode 1 goto NTC
  8. echo 21H組み込みプログラムを起動します．しばらくお待ちください
  9. for %%D in (C D E F G H I J K L M N O P Q R S T U V W X Y Z) do B:\ETC\tool 1 %%D:||if exitcode 249 set dir=%%D||goto BGN
  10. :NTC
  11. echo H注意！！
  12. echo Hこのプログラムは、フロッピーディスクのドライブ０にＸＣシステムディスク１、
  13. echo ドライブ１にＷorkroom SX-68Kアプリケーションディスクを入れて起動しないと正常に動作しません
  14. echo また、ハードディスクユーザーの方も、フロッピーディスクから起動し直してください
  15. if not exist B:\ETC\TOOL.X pause||goto END
  16. B:\ETC\tool 6 Hリセットします．
  17. pause||B:\ETC\tool 7
  18.  
  19. rem サブルーチン
  20. :MSG1
  21. echo H||for %%N in (1 2 3) do echo 
  22. echo ┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┓
  23. echo ┃%m1%63H┃
  24. :J10
  25. echo ┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┛||echo 
  26. set m1=||goto %rt2%
  27.  
  28. :MSG2
  29. echo H||echo ||echo 
  30. echo ┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┓
  31. echo ┃%m1%63H┃
  32. echo ┃%m2%63H┃
  33. set m2=||goto J10
  34.  
  35. :MSGM
  36. set m1=%nm%ディスクを作成中です．しばらくお待ちください
  37. :J11
  38. set nm=||set rt2=R10||goto MSG1
  39. :R10
  40. echo 3Hコピー中は、キーを押さないでください63H┃
  41. tool 6 3H63H┃H
  42. goto %rt%
  43.  
  44. :MSGC
  45. set m1=コピー中です．しばらくお待ちください
  46. goto J11
  47.  
  48. :ERR1
  49. set m1=ドライブ%dv%: にディスクが入っていません
  50. :ESC1
  51. set m1=%m1%||set rt2=J12||goto MSG1
  52. :J12
  53. set nm=
  54. echo 3Hエスケープキーを押してください63H┃
  55. tool 6 3H 溿（復帰）63H┃
  56. :L10
  57. tool 2||if not exitcode 27 goto L10
  58. set rt2=%es%
  59. :CLR
  60. tool 6 H||for %%N in (1 2 3 4 5 6 7 8) do echo 
  61. goto %rt2%
  62.  
  63. :ERR2
  64. tool 3 [%dv%:||tool 3 %dv%:
  65. set m1=ドライブ%dv%: は%nm%ではありません
  66. set m2=ディスクを入れ替えてください
  67. :ESC2
  68. set m1=%m1%||set m2=%m2%||set rt2=J12||goto MSG2
  69.  
  70. :INIT
  71. set rt2=||set es=||set dr=||set dr2=||set dv=||set vr=||set sc=||set dt=
  72. for %%N in (0 1 2 3 4 5 6) do set x%%N=||set y%%N=||set n%%N=
  73. set wr=||set wr2=||set dw=||set dw2=||set sh=||set sh2=||set ds=||set ds2=
  74. set xc=||set xc2=||set dx=||set dx2=||set sm=||set db=||set db2=
  75. goto %rt%
  76.  
  77. :MN1
  78. echo 3HＳＸ開発キットをインストールするデバイスを指定してください  ┃
  79. tool 6 3H （選択）（確定） 溿（終了）63H┃
  80. set n1=Hフロッピーディスク
  81. set n2=Hハードディスク    
  82. set n3=H終了              
  83. echo H┏━━━━━━━━━┓
  84. echo H┃%r1%%n1%┃
  85. echo H┃%r2%%n2%┃
  86. echo H┃%r3%%n3%┃
  87. echo H┗━━━━━━━━━┛
  88. set n=19||set rt2=L11
  89. :CLRN
  90. for %%N in (1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19) do echo ||if %n% == %%N set n=||goto %rt2%
  91. set n=||goto %rt2%
  92.  
  93. :L11
  94. tool 2
  95. if exitcode  6 goto DWN1
  96. if exitcode  1 goto UP1
  97. if exitcode 27 goto END
  98. if not exitcode 13 goto L11
  99. if %r1% == 42m goto FDD
  100. if %r2% == 42m goto HDD
  101. if %r3% == 42m goto END
  102. goto L11
  103.  
  104. :DWN1
  105. if %r1% == 42m set r1=m||set r2=42m||echo %n1%%n2%||goto L11
  106. if %r2% == 42m set r2=m||set r3=42m||echo %n2%%n3%||goto L11
  107. set r3=m||set r1=42m||echo %n3%%n1%||goto L11
  108.  
  109. :UP1
  110. if %r1% == 42m set r1=m||set r3=42m||echo %n1%%n3%||goto L11
  111. if %r2% == 42m set r2=m||set r1=42m||echo %n2%%n1%||goto L11
  112. set r3=m||set r2=42m||echo %n3%%n2%||goto L11
  113.  
  114. :MN2
  115. set y0=7||set y1=8||set y2=9||set y3=10||set y4=11||set y5=12||set y6=13
  116. set x1=8||set x2=10||set n=14
  117. echo H┏━━━━━┓
  118. echo H┃0H┃
  119. :J13
  120. set n1=%y1%;%x2%HドライブA:
  121. set n2=%y2%;%x2%HドライブB:
  122. set n3=%y3%;%x2%HドライブC:
  123. set n4=%y4%;%x2%HドライブD:
  124. set n5=%y5%;%x2%Hその他　　
  125. echo %r1%%n1%
  126. echo %y2%;%x1%H┃%r2%%n2%┃
  127. echo %y3%;%x1%H┃%r3%%n3%┃
  128. echo %y4%;%x1%H┃%r4%%n4%┃
  129. echo %y5%;%x1%H┃%r5%%n5%┃
  130. echo %y6%;%x1%H┗━━━━━┛
  131. set rt2=R11||goto CLRN
  132. :R11
  133. tool 6 3H （選択）（確定） 溿（前に戻る）63H┃
  134. :L12
  135. tool 2
  136. if exitcode  6 goto DWN2
  137. if exitcode  1 goto UP2
  138. if exitcode 27 goto %es%
  139. if not exitcode 13 goto L12
  140. if %r1% == 42m set dr=A||goto J14
  141. if %r2% == 42m set dr=B||goto J14
  142. if %r3% == 42m set dr=C||goto J14
  143. if %r4% == 42m set dr=D||goto J14
  144. set m1=ドライブ名を入力してください (E-Z)：
  145. set rt2=L13||goto MSG1
  146. :L13
  147. tool 6 39H||tool 5 1
  148. tool 8||if exitcode 27 tool 5 0||set rt2=L12||goto CLR
  149. tool 5 0||for %%D in (A B C D) do if %dir% == %%D goto L13
  150. set dr=%dir%||echo %y5%;%x2%Hドライブ%dir%:
  151. :J14
  152. for %%N in (0 1 2 3 4 5 6) do set x%%N=||set y%%N=||set n%%N=
  153. goto %rt%
  154.  
  155. :DWN2
  156. if %r1% == 42m set r1=m||set r2=42m||echo %n1%%n2%||goto L12
  157. if %r2% == 42m set r2=m||set r3=42m||echo %n2%%n3%||goto L12
  158. if %r3% == 42m set r3=m||set r4=42m||echo %n3%%n4%||goto L12
  159. if %r4% == 42m set r4=m||set r5=42m||echo %n4%%n5%||goto L12
  160. set r5=m||set r1=42m||echo %n5%%n1%||goto L12
  161.  
  162. :UP2
  163. if %r1% == 42m set r1=m||set r5=42m||echo %n1%%n5%||goto L12
  164. if %r2% == 42m set r2=m||set r1=42m||echo %n2%%n1%||goto L12
  165. if %r3% == 42m set r3=m||set r2=42m||echo %n3%%n2%||goto L12
  166. if %r4% == 42m set r4=m||set r3=42m||echo %n4%%n3%||goto L12
  167. set r5=m||set r4=42m||echo %n5%%n4%||goto L12
  168.  
  169. :MN3
  170. set y0=9||set y1=10||set y2=11||set y3=12||set y4=13||set y5=14||set y6=15
  171. set x1=12||set x2=14||set x3=24
  172. :J15
  173. echo %y0%;%x1%H┏━━━━━┓
  174. echo %y1%;%x1%H┃%y1%;%x3%H┃
  175. goto J13
  176.  
  177. :MN4
  178. set y0=11||set y1=12||set y2=13||set y3=14||set y4=15||set y5=16||set y6=17
  179. set x1=16||set x2=18||set x3=28||set n=10||goto J15
  180.  
  181. :FDC
  182. tool 1 %dr%:||if exitcode 254 goto %rt%
  183. set m1=そのドライブはフロッピーディスクではありません
  184. goto ESC1
  185.  
  186. :HDC
  187. echo 3Hハードディスクを検査しています63H┃
  188. tool 6 3H63H┃
  189. for %%N in (246 247 248) do tool 1 %dr%:||if exitcode %%N goto %rt%
  190. set m1=そのドライブはハードディスクではありません
  191. goto ESC1
  192.  
  193. :INS
  194. set m1=%nm%をドライブ%sc%: に入れてください
  195. :RDY
  196. set rt2=RDY1||goto MSG1
  197. :RDY1
  198. echo 3H準備はよろしいですか [Y/N]63H┃
  199. tool 6 3H（続行） （終了） 溿（前に戻る）63H┃
  200. :L14
  201. tool 6 30H||tool 5 1
  202. tool 8||if exitcode 27 tool 5 0||set nm=||set rt2=%es%||goto CLR
  203. tool 5 0
  204. if %dir% == Y goto %rt%
  205. if %dir% == N set nm=||goto END
  206. goto L14
  207.  
  208. :CPY
  209. tool 11 %dt%:
  210. if exitcode 1 set m1=ドライブ%dt%: にディスクが入っていません||goto ESC1
  211. if exitcode 2 set m1=ドライブ%dt%: の準備ができていません||goto ESC1
  212. if exitcode 3 set m1=ドライブ%dt%: のディスクにプロテクトシールが貼られています||goto ESC1
  213. tool 10 %dt%: 1221||if not exitcode 1 goto J16
  214. set m1=ドライブ%dt%: のディスクの中身は消去されます
  215. set rt2=R12||goto MSG1
  216. :R12
  217. echo 3Hよろしいですか [Y/N]63H┃
  218. tool 6 3H（続行） （中止）63H┃
  219. :L15
  220. tool 6 24H||tool 5 1
  221. tool 8||tool 5 0
  222. if %dir% == N set nm=||goto %es%
  223. if not %dir% == Y goto L15
  224. :J16
  225. tool 3 @%sc%:||tool 3 @%dt%:
  226. set rt_=%rt%||set rt=R13||goto MSGM
  227. :R13
  228. diskcopy %sc%: %dt%: < \ETC\YN > NUL||vol /s %dt%:Workroom_%vl%
  229. set vl=||set rt=%rt_%||set rt_=
  230. goto %rt%
  231.  
  232. :CHK
  233. set nm=Ｗorkroom SX-68Kｱﾌﾟﾘｹｰｼｮﾝﾃﾞｨｽｸ||set vl=Workroom_Applicati.on
  234. :CHK1
  235. tool 11 %dv%:||if exitcode 1 goto ERR1
  236. tool 12 %dv%: %vl%||set vl=||if exitcode 1 goto ERR2
  237. tool 3 @%dv%:||set nm=||goto %rt%
  238.  
  239. :DRC
  240. tool 6 3H溿（前に戻る）63H┃
  241. :J17
  242. set m1=ディレクトリ名を入力してください
  243. set m2=ディレクトリ名＝%dr%:\
  244. set rt2=R14||goto MSG2
  245. :R14
  246. tool 6 22H||tool 5 1
  247. tool 9 %nm%
  248. if exitcode 27 tool 5 0||set nm=||goto %es%
  249. if exitcode 1 tool 5 0||set gets=\||goto SFT
  250. tool 5 0
  251. tool 12 %dr%: %gets%||if not exitcode 1 goto J17
  252. :SFT
  253. set nm=
  254. tool 1 C:||if not exitcode 254 goto J18
  255. tool 1 D:||if not exitcode 254 goto J19
  256. tool 1 E:||if not exitcode 254 goto J20
  257. :J18
  258. if %dr% == C set dr2=A||goto %rt%
  259. if %dr% == D set dr2=B||goto %rt%
  260. if %dr% == E set dr2=C||goto %rt%
  261. if %dr% == F set dr2=D||goto %rt%
  262. if %dr% == G set dr2=E||goto %rt%
  263. if %dr% == H set dr2=F||goto %rt%
  264. if %dr% == I set dr2=G||goto %rt%
  265. if %dr% == J set dr2=H||goto %rt%
  266. if %dr% == K set dr2=I||goto %rt%
  267. if %dr% == L set dr2=J||goto %rt%
  268. if %dr% == M set dr2=K||goto %rt%
  269. if %dr% == N set dr2=L||goto %rt%
  270. if %dr% == O set dr2=M||goto %rt%
  271. if %dr% == P set dr2=N||goto %rt%
  272. if %dr% == Q set dr2=O||goto %rt%
  273. if %dr% == R set dr2=P||goto %rt%
  274. if %dr% == S set dr2=Q||goto %rt%
  275. if %dr% == T set dr2=R||goto %rt%
  276. if %dr% == U set dr2=S||goto %rt%
  277. if %dr% == V set dr2=T||goto %rt%
  278. if %dr% == W set dr2=U||goto %rt%
  279. if %dr% == X set dr2=V||goto %rt%
  280. if %dr% == Y set dr2=W||goto %rt%
  281. if %dr% == Z set dr2=X||goto %rt%
  282. set dr2=A||goto %rt%
  283.  
  284. :J19
  285. if %dr% == D set dr2=A||goto %rt%
  286. if %dr% == E set dr2=B||goto %rt%
  287. if %dr% == F set dr2=C||goto %rt%
  288. if %dr% == G set dr2=D||goto %rt%
  289. if %dr% == H set dr2=E||goto %rt%
  290. if %dr% == I set dr2=F||goto %rt%
  291. if %dr% == J set dr2=G||goto %rt%
  292. if %dr% == K set dr2=H||goto %rt%
  293. if %dr% == L set dr2=I||goto %rt%
  294. if %dr% == M set dr2=J||goto %rt%
  295. if %dr% == N set dr2=K||goto %rt%
  296. if %dr% == O set dr2=L||goto %rt%
  297. if %dr% == P set dr2=M||goto %rt%
  298. if %dr% == Q set dr2=N||goto %rt%
  299. if %dr% == R set dr2=O||goto %rt%
  300. if %dr% == S set dr2=P||goto %rt%
  301. if %dr% == T set dr2=Q||goto %rt%
  302. if %dr% == U set dr2=R||goto %rt%
  303. if %dr% == V set dr2=S||goto %rt%
  304. if %dr% == W set dr2=T||goto %rt%
  305. if %dr% == X set dr2=U||goto %rt%
  306. if %dr% == Y set dr2=V||goto %rt%
  307. if %dr% == Z set dr2=W||goto %rt%
  308. if %dr% == Z set dr2=X||goto %rt%
  309. set dr2=A||goto %rt%
  310.  
  311. :J20
  312. if %dr% == E set dr2=A||goto %rt%
  313. if %dr% == F set dr2=B||goto %rt%
  314. if %dr% == G set dr2=C||goto %rt%
  315. if %dr% == H set dr2=D||goto %rt%
  316. if %dr% == I set dr2=E||goto %rt%
  317. if %dr% == J set dr2=F||goto %rt%
  318. if %dr% == K set dr2=G||goto %rt%
  319. if %dr% == L set dr2=H||goto %rt%
  320. if %dr% == M set dr2=I||goto %rt%
  321. if %dr% == N set dr2=J||goto %rt%
  322. if %dr% == O set dr2=K||goto %rt%
  323. if %dr% == P set dr2=L||goto %rt%
  324. if %dr% == Q set dr2=M||goto %rt%
  325. if %dr% == R set dr2=N||goto %rt%
  326. if %dr% == S set dr2=O||goto %rt%
  327. if %dr% == T set dr2=P||goto %rt%
  328. if %dr% == U set dr2=Q||goto %rt%
  329. if %dr% == V set dr2=R||goto %rt%
  330. if %dr% == W set dr2=S||goto %rt%
  331. if %dr% == X set dr2=T||goto %rt%
  332. if %dr% == Y set dr2=U||goto %rt%
  333. if %dr% == Z set dr2=V||goto %rt%
  334. set dr2=A||goto %rt%
  335.  
  336. :INST
  337. echo 3H%nm%はインストールしてありますか？ [Y/N]63H┃
  338. tool 6 3H（再設定） （終了）63H┃
  339. set nm=
  340. :L16
  341. tool 6 %x0%H||tool 5 1
  342. tool 8||tool 5 0
  343. if %dir% == Y goto %rt%
  344. if %dir% == N goto END
  345. goto L16
  346.  
  347. rem インストールの開始
  348. :BGN
  349. A:\BIN\format %dir%: < B:\ETC\YN > NUL
  350. %dir%:||cd \||TEMP %dir%:
  351. copy B:\ETC\TOOL.X > NUL
  352. tool 3 @A:||tool 3 @B:
  353. copy A:\COMMAND.X > NUL
  354. copy A:\BIN\DISKCOPY.X > NUL
  355. copy A:\BIN\COPYALL.X > NUL
  356. copy A:\SYS\OPMDRV3.X > NUL
  357. copyall A:\SYS\PRNDRV.SYS \SYS > NUL
  358. copy A:\SYS\HISTORY.X \SYS > NUL
  359. copyall A:\HIS > NUL
  360. copyall A:\BIN\ED.* \BIN > NUL
  361. for %%F in (AS LK CV MAKE) do copy A:\BIN\%%F.X \BIN > NUL
  362. copyall B:\ETC > NUL
  363. copy COMMAND.X \ETC > NUL
  364. :TTL
  365. cls
  366. echo ┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┓
  367. echo ┃ Ｗorkroom SX-68K ver1.0 インストーラ　Copyright 1993 SHARP ┃
  368. echo ┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┛
  369. echo  H┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┓
  370. echo ┃63H┃
  371. echo ┃63H┃
  372. tool 6 ┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┛
  373. set r1=42m||set r2=m||set r3=m||goto DVC1
  374.  
  375. :DVC
  376. set r1=m||set r2=42m||set r3=m
  377. :DVC1
  378. set rt=R15||goto INIT
  379. :R15
  380. tool 3 [A:||tool 3 [B:||goto MN1
  381.  
  382. rem フロッピーディスクへのインストール
  383. :FDD
  384. set m1=フォーマット済のフロッピーディスクを３枚用意してください
  385. set rt=SRC||set es=DVC1||goto RDY
  386. :SRC
  387. set r1=42m||for %%N in (2 3 4 5) do set r%%N=m
  388. :SRC1
  389. echo 3Hコピー元のドライブを指定してください63H┃
  390. set rt=R16||set es=FDD||goto MN2
  391. :R16
  392. set rt=R17||set es=SRC1||goto FDC
  393. :R17
  394. set sc=%dr%||set r2=42m||for %%N in (1 3 4 5) do set r%%N=m
  395. :DST
  396. echo 3Hコピー先のドライブを指定してください63H┃
  397. set n=12||set rt=R18||set es=J21||goto MN3
  398. :R18
  399. set rt=R19||set es=DST||goto FDC
  400. :R19
  401. set dt=%dr%||if not %dr% == %sc% goto FD1
  402. set m1=コピー元と同じドライブは、指定できません
  403. set es=DST||goto ESC1
  404.  
  405. :J21
  406. if %sc% == A goto SRC
  407. for %%N in (1 2 3 4 5) do set r%%N=m
  408. if %sc% == B set r2=42m||goto SRC1
  409. if %sc% == C set r3=42m||goto SRC1
  410. if %sc% == D set r4=42m||goto SRC1
  411. set r5=42m||goto SRC1
  412.  
  413. :FD1
  414. tool 3 [%sc%:||tool 3 %sc%:
  415. :FD11
  416. tool 3 [%dt%:||tool 3 %dt%:
  417. :FD12
  418. set m1=コピーを始めます．ドライブ%sc%: にSX-WINDOWシステムディスク、
  419. set m2=ドライブ%dt%: に空きディスクを入れてください
  420. set rt=R20||set es=DST||set rt2=RDY1||goto MSG2
  421. :R20
  422. set dv=%sc%||set nm=SX-WINDOWシステムディスク||set es=FD12
  423. tool 11 %dv%:||if exitcode 1 goto ERR1
  424. tool 12 %dv%: SX･Window_SYSTEM||if not exitcode 1 set vr=2||goto J22
  425. tool 12 %dv%: SX･Window-System||if exitcode 1 goto ERR2
  426. set vr=3
  427. :J22
  428. set nm=起動||set vl=Startup||set rt=R21||set es=FD11||goto CPY
  429. :R21
  430. if %vr% == 2 del %dt%:\HDﾌｫｰﾏｯﾄ.X > NUL
  431. del /Y %dt%:\SHELL\TITLE.* > NUL
  432. if %vr% == 3 del /Y %dt%:\SHELL\IVM.* > NUL
  433. if %vr% == 2 del %dt%:\SYS\OPMDRV.X > NUL
  434. copy %dt%:\SHELL\SXWIN.X %dt%:\SHELL\SXWDB.X > NUL
  435. if %vr% == 2 goto J23
  436. tool 3 [%sc%:||tool 3 %sc%:
  437. :FD2
  438. set nm=Human68k ver3システムディスク||set rt=R22||set es=FD1||goto INS
  439. :R22
  440. set dv=%sc%||set vl=Human68k_Ver3||set rt=R23||set es=FD2||goto CHK1
  441. :R23
  442. set nm=起動||set rt=R24||goto MSGM
  443. :R24
  444. copyall /T %sc%:\COMMAND.X \ETC > NUL
  445. copyall /T %sc%:\SYS\HISTORY.X \SYS > NUL
  446. tool 13 \ETC\CONFIG.SYS,.SYS,.SYS ||copy tmp.$$$ \ETC\CONFIG.SYS > NUL
  447. tool 13 \ETC\CONFIG.SYS,B:\X68K_M.DIC B:\X68K_S.DIC ,/DB:\X68K.DIC /E
  448. copy tmp.$$$ \ETC\CONFIG.SYS > NUL
  449. tool 13 \ETC\CONFIG.SYS,SCSIDRV.SYS /ID0,FDDEVICE.X 
  450. copy tmp.$$$ \ETC\CONFIG.SYS > NUL
  451. tool 13 \ETC\CONFIG.SYS,DEVICE    = \SYS\IOCS.X,#DEVICE   = \SYS\IOCS.X
  452. copy tmp.$$$ \ETC\CONFIG.SYS > NUL
  453. tool 13 \ETC\CONFIG.SYS,.SYS ,.SYS||copy tmp.$$$ \ETC\CONFIG.SYS > NUL
  454. tool 13 \ETC\AUTOEXEC.BAT,set SM_ED=,set  SM_ED=ｼｬｰﾍﾟﾝ.X -Gｴﾃﾞｨﾀ.ENV
  455. copy tmp.$$$ \ETC\AUTOEXEC.BAT > NUL
  456. del tmp.$$$ > NUL
  457. :J23
  458. for %%F in (COMMAND.X CONFIG.SYS AUTOEXEC.BAT) do copy \ETC\%%F %dt%:\ > NUL
  459. echo echo off> %dt%:\SX.BAT||echo SXWIN.X>> %dt%:\SX.BAT
  460. copy \ETC\SYSDTOP.SX %dt%:\SHELL > NUL
  461. copyall /T \SYS %dt%:\ > NUL
  462. copyall /T OPMDRV3.X %dt%:\SYS > NUL
  463. copyall \HIS %dt%:\ > NUL
  464. copyall \TOOL.X %dt%:\ETC > NUL
  465. :FD3
  466. tool 3 [%sc%:||tool 3 %sc%:
  467. :FD31
  468. tool 3 [%dt%:||tool 3 %dt%:
  469. :FD32
  470. set m1=起動ディスクを作成しました．続いてドライブ%sc%: にＸＣシステム
  471. set m2=ディスク２、ドライブ%dt%: に空きディスクを入れてください
  472. set rt=R25||set es=FD1||set rt2=RDY1||goto MSG2
  473. :R25
  474. set dv=%sc%||set nm=ＸＣシステムディスク２||set vl=XCｼｽﾃﾑ#2||set rt=R26||set es=FD32||goto CHK1
  475. :R26
  476. set nm=ランタイム||set vl=Runtime||set rt=R27||set es=FD31||goto CPY
  477. :R27
  478. del /Y %dt%:\INCLUDE\*.MAC > NUL
  479. del %dt%:\INCLUDE\FDEF.H > NUL
  480. if exist %dt%:\INCLUDE\GPIB.H del %dt%:\INCLUDE\GPIB.H > NUL
  481. del /Y %dt%:\BC > NUL||rd %dt%:\BC
  482. tool 4 %dt%:\SAMPLE||if exitcode 1 del /Y %dt%:\SAMPLE > NUL||rd %dt%:\SAMPLE
  483. tool 4 %dt%:\MUSIC||if exitcode 1 del /Y %dt%:\MUSIC > NUL||rd %dt%:\MUSIC
  484. tool 4 %dt%:\BASIC2||if exitcode 1 del /Y %dt%:\BASIC2 > NUL||rd %dt%:\BASIC2
  485. tool 3 [%sc%:||tool 3 %sc%:
  486. :FD4
  487. set nm=Ｗorkroom SX-68Kｱﾌﾟﾘｹｰｼｮﾝﾃﾞｨｽｸ||set rt=R28||set es=FD3||goto INS
  488. :R28
  489. set dv=%sc%||set rt=R29||set es=FD4||goto CHK
  490. :R29
  491. set nm=ランタイム||set rt=R30||goto MSGM
  492. :R30
  493. copy %sc%:\INCLUDE %dt%:\INCLUDE > NUL
  494. copy %sc%:\LIB %dt%:\LIB > NUL
  495. copy \ETC\COMMAND.X %dt%:\ > NUL
  496. :FD5
  497. tool 3 [%dt%:||tool 3 %dt%:
  498. :FD51
  499. set m1=ランタイムディスクを作成しました
  500. set m2=空きディスクをドライブ%dt%: に入れてください
  501. set rt=J25||set es=FD3||set rt2=RDY1||goto MSG2
  502.  
  503. :J24
  504. set nm=Ｗorkroom SX-68Kｱﾌﾟﾘｹｰｼｮﾝﾃﾞｨｽｸ||set rt=J25||set es=FD51||goto INS
  505. :J25
  506. set dv=%sc%||set rt=R31||set es=J24||goto CHK
  507. :R31
  508. set nm=ツール||set vl=Tool||set rt=R32||set es=FD5||goto CPY
  509. :R32
  510. for %%F in (INCLUDE LIB ETC) do del /Y %dt%:\%%F > NUL||rd %dt%:\%%F > NUL
  511. del %dt%:\INST.BAT > NUL
  512. copyall \BIN %dt%: > NUL
  513. tool 3 [%sc%:||tool 3 %sc%:
  514. :FD6
  515. set nm=SX-WINDOW ｱﾌﾟﾘｹｰｼｮﾝﾃﾞｨｽｸ||if %vr% == 3 set nm=SX-WINDOW ｱﾌﾟﾘｹｰｼｮﾝﾃﾞｨｽｸ１
  516. set rt=R33||set es=FD51||goto INS
  517. :R33
  518. set vl=SX_Application||if %vr% == 3 set vl=SX-Application#1
  519. set dv=%sc%||set rt=R34||set es=FD6||goto CHK1
  520. :R34
  521. set nm=ツール||set rt=R35||goto MSGM
  522. :R35
  523. md %dt%:\アクセサリ > NUL
  524. if %vr% == 3 goto J26
  525. copy %sc%:\エディタ.* %dt%:\アクセサリ > NUL
  526. copy %sc%:\ﾌｫﾝﾄ選択.X %dt%:\アクセサリ > NUL
  527. goto J27
  528.  
  529. :J26
  530. for %%F in (ｼｬｰﾍﾟﾝ.X ｼｬｰﾍﾟﾝ.ARC ｴﾃﾞｨﾀ.ENV) do copy %sc%:\%%F %dt%:\アクセサリ > NUL
  531. tool 10 %dt%: 15||if exitcode 1 goto J27
  532. copy %sc%:\ｼｬｰﾍﾟﾝ.HLP %dt%:\アクセサリ > NUL
  533. :J27
  534. set m1=ツールディスクを作成しました
  535. set rt2=R36||goto MSG1
  536. :R36
  537. tool 3 [%dt%:||tool 3 %dt%:
  538. echo 3Hリターンキーを押してください63H┃
  539. tool 6 3H（続行）  溿（前に戻る）63H┃
  540. :L17
  541. tool 2
  542. if exitcode 27 goto FD5
  543. if not exitcode 13 goto L17
  544. set m1=コピーは終了しました．ドライブ０に起動ディスク、ドライブ１に
  545. set m2=ツールディスクを入れてください．Y を押すとリセットします
  546. set rt2=R37||goto MSG2
  547. :R37
  548. tool 3 [%sc%:||tool 3 %sc%:
  549. echo 3Hリセットします．よろしいですか [Y/N]63H┃
  550. tool 6 3H（リセット） （終了）63H┃
  551. :L18
  552. tool 6 40H||tool 5 1
  553. tool 8||tool 5 0
  554. if %dir% == Y tool 7
  555. if %dir% == N goto END
  556. goto L18
  557.  
  558. rem ハードディスクへのインストール
  559. :HDD
  560. set r3=42m||for %%N in (1 2 4 5) do set r%%N=m
  561. :WR1
  562. echo 3HＳＸ開発キットを組込むﾊｰﾄﾞﾃﾞｨｽｸのドライブを指定してください ┃
  563. set rt=R38||set es=DVC||goto MN2
  564. :R38
  565. set rt=R39||set es=WR1||goto HDC
  566. :R39
  567. tool 10 %dr%: 8192||if not exitcode 1 goto WR2
  568. set m1=ハードディスクの空き容量が足りません
  569. set m2=８Ｍバイト以上確保してください
  570. set rt2=R40||goto MSG2
  571. :R40
  572. echo 3H終了してもよろしいですか [Y/N]63H┃
  573. tool 6 3H（終了） （続行） 溿（前に戻る）63H┃
  574. :L19
  575. tool 6 34H||tool 5 1
  576. tool 8||if exitcode 27 tool 5 0||goto WR1
  577. tool 5 0
  578. if %dir% == Y goto END
  579. if not %dir% == N goto L19
  580. set m1=続行の場合、途中でハードディスクがいっぱいになりコピーを中止
  581. set m2=することがあります
  582. set es=WR2||goto ESC2
  583. :WR2
  584. echo 3Hドライブ%dr%: にＳＸ開発キット用のディレクトリを作成します63H┃
  585. set nm=開発キット||set rt=R41||set es=WR1||goto DRC
  586. :R41
  587. set dw=%dr%||set dw2=%dr2%
  588. if %gets% == \ set wr=\||set wr2=\||goto SHL
  589. set wr=\%gets%||set wr2=\%gets%\
  590. tool 4 %dw%:%wr%||if exitcode 0 goto SHL
  591. set m1=ドライブ%dw%: には同名のディレクトリがあります
  592. set rt2=R42||goto MSG1
  593. :R42
  594. echo 3H上書きしますか？ [Y/N]63H┃
  595. :L20
  596. tool 6 26H||tool 5 1
  597. tool 8||if exitcode 27 tool 5 0||goto WR1
  598. tool 5 0
  599. if %dir% == N goto WR2
  600. if not %dir% == Y goto L20
  601. :SHL
  602. set r3=42m||for %%N in (1 2 4 5) do set r%%N=m
  603. :SHL1
  604. set m1=ＳＸ開発キットを利用するときは、ここで指定したドライブ名から
  605. set m2=起動してください
  606. set rt2=R43||goto MSG2
  607. :R43
  608. echo 3HSX-WINDOWが組込まれているﾊｰﾄﾞﾃﾞｨｽｸのﾄﾞﾗｲﾌﾞを指定してください┃
  609. set n=4||set rt=R44||set es=J30||goto MN3
  610. :R44
  611. set rt=R45||set es=SHL1||goto HDC
  612. :R45
  613. echo 3Hﾄﾞﾗｲﾌﾞ%dr%: に存在するＳＸシェル"SXWIN.X" のﾃﾞｨﾚｸﾄﾘをﾁｪｯｸします┃
  614. set nm=SHELL||set rt=R46||set es=SHL1||goto DRC
  615. :R46
  616. set ds=%dr%||set ds2=%dr2%
  617. if %gets% == \ set sh=\||set sh2=\||goto J28
  618. set sh=\%gets%||set sh2=\%gets%\
  619. tool 4 %ds%:%sh%||if exitcode 0 set m1=ドライブ%ds%: には指定のディレクトリがありません||goto J29
  620. :J28
  621. if exist %ds%:%sh2%SXWIN.X goto J31
  622. set m1=ﾃﾞｨﾚｸﾄﾘ"%ds%:%sh%" にはＳＸシェル"SXWIN.X" が存在しません
  623. :J29
  624. set nm=SX-WINDOW||set x0=49||set rt=SHL1||set rt2=INST||goto MSG1
  625.  
  626. :J30
  627. if %dw% == A goto HDD
  628. for %%N in (1 2 3 4 5) do set r%%N=m
  629. if %dw% == B set r2=42m||goto WR1
  630. if %dw% == C set r3=42m||goto WR1
  631. if %dw% == D set r4=42m||goto WR1
  632. set r5=42m||goto WR1
  633.  
  634. :J31
  635. if not exist %ds%:%sh2%SXWDB.X copy %ds%:%sh2%SXWIN.X %ds%:%sh2%SXWDB.X > NUL
  636. :XC
  637. set r3=42m||for %%N in (1 2 4 5) do set r%%N=m
  638. :XC1
  639. echo 3HＣｺﾝﾊﾟｲﾗが組込まれているﾊｰﾄﾞﾃﾞｨｽｸのﾄﾞﾗｲﾌﾞを指定してください ┃
  640. set rt=R47||set es=J35||goto MN4
  641. :R47
  642. set rt=R48||set es=XC1||goto HDC
  643. :R48
  644. echo 3Hドライブ%dr%: に存在するＣコンパイラのディレクトリをﾁｪｯｸします ┃
  645. set nm=XC||set rt=R49||set es=XC1||goto DRC
  646. :R49
  647. set dx=%dr%||set dx2=%dr2%
  648. if %gets% == \ set xc=\||set xc2=\||goto J32
  649. set xc=\%gets%||set xc2=\%gets%\
  650. tool 4 %dx%:%xc%||if exitcode 0 set m1=ドライブ%dx%: には指定のディレクトリがありません||goto J34
  651. :J32
  652. tool 4 %dx%:%xc2%INCLUDE||if exitcode 0 set m1=INCLUDE||goto J33
  653. tool 4 %dx%:%xc2%LIB||if exitcode 1 set rt2=SMPL||goto CLR
  654. set m1=LIB
  655. :J33
  656. set m1=ディレクトリ"%dx%:%xc%" にはｻﾌﾞﾃﾞｨﾚｸﾄﾘ"%m1%" が存在しません
  657. :J34
  658. set nm=Ｃコンパイラ||set x0=52||set rt=XC1||set rt2=INST||goto MSG1
  659.  
  660. :J35
  661. if %ds% == A goto SHL
  662. for %%N in (1 2 3 4 5) do set r%%N=m
  663. if %ds% == B set r2=42m||goto SHL1
  664. if %ds% == C set r3=42m||goto SHL1
  665. if %ds% == D set r4=42m||goto SHL1
  666. set r5=42m||goto SHL1
  667.  
  668. :SMPL
  669. echo 3Hサンプルプログラムをコピーしますか [Y/N]63H┃
  670. tool 6 3H（する） （しない） 溿（前に戻る）63H┃
  671. :L21
  672. tool 6 44H||tool 5 1
  673. tool 8||if exitcode 27 tool 5 0||goto XC1
  674. tool 5 0
  675. if %dir% == Y set sm=CP||goto J36
  676. if not %dir% == N goto L21
  677. set sm=PS
  678. :J36
  679. set y0=11||set y1=12||set y2=13||if %sm% == PS set y0=14||set y1=15||set y2=16
  680. echo %y0%;20H┏━━━━━━━━━━━┳━━━━━━━━━━━━━━┓
  681. echo %y1%;20H┃ＳＸ開発キット ﾃﾞｨﾚｸﾄﾘ┃%dw%:%wr%%y1%;74H┃
  682. echo %y2%;20H┃開発ツール  ｻﾌﾞﾃﾞｨﾚｸﾄﾘ┃%dw%:%wr2%開発ツール%y2%;74H┃
  683. if %sm% == PS goto J37
  684. echo 20H┃ｻﾝﾌﾟﾙ基礎編 ｻﾌﾞﾃﾞｨﾚｸﾄﾘ┃%dw%:%wr2%ｻﾝﾌﾟﾙ基礎編74H┃
  685. echo 20H┃ｻﾝﾌﾟﾙ応用編 ｻﾌﾞﾃﾞｨﾚｸﾄﾘ┃%dw%:%wr2%ｻﾝﾌﾟﾙ応用編74H┃
  686. echo 20H┃ｻﾝﾌﾟﾙ実用編 ｻﾌﾞﾃﾞｨﾚｸﾄﾘ┃%dw%:%wr2%ｻﾝﾌﾟﾙ実用編74H┃
  687. :J37
  688. echo 20H┃インクルードｻﾌﾞﾃﾞｨﾚｸﾄﾘ┃%dx%:%xc2%INCLUDE74H┃
  689. echo 20H┃ライブラリ　ｻﾌﾞﾃﾞｨﾚｸﾄﾘ┃%dx%:%xc2%LIB74H┃
  690. echo 20H┗━━━━━━━━━━━┻━━━━━━━━━━━━━━┛
  691. for %%N in (0 1 2) do set y%%N=
  692. set rt2=HD1||goto CLR
  693. :HD1
  694. set m1=以上のディレクトリに対してコピーを始めます
  695. set rt=R50||set es=SMPL||goto RDY
  696. :R50
  697. set dv=B||set rt=R51||set es=HD1||goto CHK
  698. :R51
  699. set rt=R52||goto MSGC
  700. :R52
  701. if not %wr% == \ tool 4 %dw%:%wr%||if exitcode 0 md %dw%:%wr% > NUL
  702. copyall /T B:\開発ツール %dw%:%wr% > NUL
  703. if not %xc% == \ tool 4 %dx%:%xc%||if exitcode 0 md %dx%:%xc% > NUL
  704. copyall /T B:\INCLUDE %dx%:%xc% > NUL
  705. copyall /T B:\LIB %dx%:%xc% > NUL
  706. if %sm% == PS goto J38
  707. tool 3 [A:||tool 3 A:||tool 3 [B:||tool 3 B:
  708. :HD2
  709. if %sm% == PS goto HD1
  710. set m1=次のディスクをコピーします．ドライブ０にＷorkroom SX-68K
  711. set m2=ﾌﾟﾛｸﾞﾗﾑﾃﾞｨｽｸ１、ドライブ１にﾌﾟﾛｸﾞﾗﾑﾃﾞｨｽｸ２を入れてください
  712. set rt=R53||set es=HD1||set rt2=RDY1||goto MSG2
  713. :R53
  714. set dv=A||set nm=Ｗorkroom SX-68Kﾌﾟﾛｸﾞﾗﾑﾃﾞｨｽｸ１||set vl=Workroom_Program1
  715. set rt=R54||set es=HD2||goto CHK1
  716. :R54
  717. set dv=B||set nm=Ｗorkroom SX-68Kﾌﾟﾛｸﾞﾗﾑﾃﾞｨｽｸ２||set vl=Workroom_Program2
  718. set rt=R55||set es=HD2||goto CHK1
  719. :R55
  720. set rt=R56||goto MSGC
  721. :R56
  722. copyall /T A:\ｻﾝﾌﾟﾙ基礎編 %dw%:%wr% > NUL
  723. copyall /T B:\ｻﾝﾌﾟﾙ応用編 %dw%:%wr% > NUL
  724. copyall /T B:\ｻﾝﾌﾟﾙ実用編 %dw%:%wr% > NUL
  725. :J38
  726.  
  727. tool 3 [A:||tool 3 A:||tool 3 [B:||tool 3 B:
  728. :HD3
  729. set m1=次にシステムのバージョンをﾁｪｯｸします．ドライブ０にSX-WINDOW
  730. set m2=ｼｽﾃﾑﾃﾞｨｽｸ、ドライブ１にHuman68k ｼｽﾃﾑﾃﾞｨｽｸを入れてください
  731. set rt=R57||set es=HD2||set rt2=RDY1||goto MSG2
  732. :R57
  733. set dv=A||set nm=SX-WINDOWシステムディスク||set es=HD3
  734. tool 11 %dv%:||if exitcode 1 goto ERR1
  735. tool 12 %dv%: SX･Window_SYSTEM||if not exitcode 1 set vr=2||goto J39
  736. tool 12 %dv%: SX･Window-System||if exitcode 1 goto ERR2
  737. set vr=3
  738. :J39
  739. set dv=B||set nm=Human68k ver%vr%システムディスク||set vl=Human68k_Ver%vr%
  740. set rt=R58||set es=HD3||goto CHK1
  741. :R58
  742. set rt=R59||goto MSGC
  743. :R59
  744. copyall /T B:\COMMAND.X \ETC > NUL
  745. copyall /T B:\SYS\HISTORY.X \SYS > NUL
  746.  
  747. tool 3 [A:||tool 3 [B:||set dr=%ds%
  748. :RWR
  749. set m1=ＳＸデバッガを起動するため、SX-WINDOWが自動起動しないように
  750. set m2=ドライブ%dr%: の"CONFIG.SYS" を書き替えます
  751. set rt2=R60||goto MSG2
  752. :R60
  753. echo 3Hよろしいですか [Y/N]63H┃
  754. tool 6 3H（続行） （ドライブ名変更・中止） 溿（前に戻る）63H┃
  755. :L22
  756. tool 6 24H||tool 5 1
  757. tool 8||if exitcode 27 tool 5 0||goto HD3
  758. tool 5 0
  759. if %dir% == Y goto J40
  760. if not %dir% == N goto L22
  761. echo 3Hドライブ名のみ変更できます (A-Z)：63H┃
  762. tool 6 3H 溿を押すと、"CONFIG.SYS" を書き替えません63H┃
  763. tool 6 37H||tool 5 1
  764. tool 8||if exitcode 27 tool 5 0||set rt=J41||goto SFT
  765. tool 5 0||set dr=%dir%||goto RWR
  766.  
  767. :J40
  768. copy %dr%:\CONFIG.SYS %dr%:\CONFIG.BAK > NUL
  769. tool 13 %dr%:\CONFIG.SYS,.SYS,.SYS ||copy tmp.$$$ \CONFIG.SYS > NUL
  770. tool 13 \CONFIG.SYS,FILES     = 15,FILES     = 20||copy tmp.$$$ \CONFIG.SYS > NUL
  771. tool 13 \CONFIG.SYS,TITLE     =,#TITLE    =||copy tmp.$$$ \CONFIG.SYS > NUL
  772. tool 13 \CONFIG.SYS,\SYS\OPMDRV.X,\SYS\OPMDRV3.X #180 /P64 /OPM||copy tmp.$$$ \CONFIG.SYS > NUL
  773. tool 13 \CONFIG.SYS,PROGRAM   =,#PROGRAM  =||copy tmp.$$$ \CONFIG.SYS > NUL
  774. tool 13 \CONFIG.SYS,SHELL     =,#SHELL    =||copy tmp.$$$ \CONFIG.SYS > NUL
  775. tool 13 \CONFIG.SYS,.SYS ,.SYS||copy tmp.$$$ %dr%:\CONFIG.SYS > NUL
  776. del tmp.$$$ > NUL
  777. copyall /T \ETC\COMMAND.X %dr%:\ > NUL
  778. copyall /T \SYS\HISTORY.X %dr%:\SYS > NUL
  779. copyall /T OPMDRV3.X %dr%:\SYS > NUL
  780. set rt=J41||goto SFT
  781. :J41
  782. set db=%dr%||set db2=%dr2%
  783. :ENV
  784. set pt=%db2%:\;%db2%:\SYS;
  785. if not %db% == %ds% set pt=%pt%%ds2%:\;
  786. set pt=%pt%%ds2%:%sh%;%dw2%:%wr2%開発ツール;
  787. if not %db% == %dx% if not %dx% == %ds% set pt2=%dx2%:\;%dx2%:\BIN;%dx2%:%xc2%CC;%dx2%:%xc2%BIN;||goto J42
  788. set pt2=%dx2%:\BIN;%dx2%:%xc2%CC;%dx2%:%xc2%BIN;
  789. :J42
  790. echo H┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┓
  791. echo ┃ＳＸ開発キットの使用環境を設定するバッチファイル(SX.BAT, SDB.BAT)を71H┃
  792. echo ┃ドライブ%db%: のルートディレクトリ(%db%:\)に作成します71H┃
  793. echo ┃　path %pt%71H┃
  794. echo ┃　     %pt2%71H┃
  795. echo ┃  set include=%dx2%:%xc2%INCLUDE;71H┃
  796. echo ┃　set lib=%dx2%:%xc2%LIB;71H┃
  797. echo ┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┛
  798. echo 3HＳＸ開発キット使用時の環境は、以上でよろしいですか [Y/N]63H┃
  799. tool 6 3H（決定） （中止） 溿（前に戻る）63H┃
  800. set pt=%pt%%pt2%||set pt2=
  801. :L23
  802. tool 6 60H||tool 5 1
  803. tool 8||if exitcode 27 tool 5 0||set pt=||goto RWR
  804. tool 5 0
  805. if %dir% == N goto J43
  806. if not %dir% == Y goto L23
  807. if %vr% == 3 tool 13 \ETC\HD.BAT,set SM_ED=,set  SM_ED=ｼｬｰﾍﾟﾝ.X -Gｴﾃﾞｨﾀ.ENV||copy tmp.$$$ \ETC\HD.BAT > NUL
  808. if exist %db%:\SX.BAT copy %db%:\SX.BAT %db%:\SX.BAK > NUL
  809. if exist %db%:\SDB.BAT copy %db%:\SDB.BAT %db%:\SDB.BAK > NUL
  810. tool 6 H||prompt $_
  811. command \ETC\HD.BAT %pt% %dx2%:%xc2% %dw2%: %wr2% > %db%:\SX.BAT||prompt
  812. copy %db%:\SX.BAT %db%:\SDB.BAT > NUL
  813. tool 13 \ETC\SX.BAT,REM FSX.X,FSX.X||copy tmp.$$$ \ETC\SX.BAT > NUL
  814. tool 13 \ETC\SDB.BAT,REM FSX.X,FSX.X||copy tmp.$$$ \ETC\SDB.BAT > NUL
  815. tool 13 \ETC\SX.BAT,FSX.X,%ds2%:\SYS\FSX.X||type tmp.$$$ >> %db%:\SX.BAT
  816. tool 13 \ETC\SDB.BAT,FSX.X,%ds2%:\SYS\FSX.X||type tmp.$$$ >> %db%:\SDB.BAT
  817. del tmp.$$$ > NUL
  818. echo H||echo 
  819. echo ┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┓
  820. echo ┃バッチファイル(SX.BAT, SDB.BAT)を%db%:\ に作成しました63H┃
  821. echo ┃ドライブ%db%: からシステム起動後、"SX" と入力するとSX-WINDOWが、63H┃
  822. echo ┃"SDB" と入力するとＳＸデバッガがそれぞれ起動します63H┃
  823. echo ┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┛||echo 
  824. :J43
  825. echo 3Hコピーは終了しました．リセットしますか [Y/N]63H┃
  826. tool 6 3H（リセット） （終了） 溿（前に戻る）63H┃
  827. :L24
  828. tool 6 48H||tool 5 1
  829. tool 8||if exitcode 27 tool 5 0||goto ENV
  830. tool 5 0||set pt=
  831. if %dir% == N goto END
  832. if not %dir% == Y goto L24
  833. tool 3 [A:||tool 3 A:||tool 3 [B:||tool 3 B:||tool 7
  834.  
  835. rem インストールの終了
  836. :END
  837. set rt=R61||goto INIT
  838. :R61
  839. set dir=||set gets=||set rt=||for %%N in (1 2 3 4 5) do set r%%N=
  840. tool 3 [A:||tool 3 [B:||cls||tool 5 1
  841.